home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / bbs / pad321.zip / GETPHONE.MEX < prev    next >
Text File  |  1996-08-21  |  647b  |  37 lines
  1. #ifndef __MAX_MH
  2. #include <max.mh>
  3. #define __MAX_MH
  4. #endif
  5.  
  6. #ifndef __PHONE_MH
  7. #include "phone.mh"
  8. #endif
  9.  
  10. #ifndef __FILE_MH
  11. #include "file.mh"
  12. #endif
  13.  
  14. int main () {
  15.   string: parsedPhone, token, params, newPhone;
  16.   int: fd;
  17.  
  18.   parsedPhone := guessDataPhone ();
  19.   newPhone := getNewPhoneNumber (parsedPhone);
  20.  
  21.   if (newPhone <> "") {
  22.     log (str_phone_entered_log + newPhone);
  23.     fd := open (phoneTempFile, IOPEN_WRITE | IOPEN_CREATE);
  24.  
  25.     writeln (fd,stripNonNumericf (newPhone));
  26.     writeln (fd,newPhone);
  27.     close (fd);
  28.     return 0;
  29.     }
  30.   else {
  31.     show_file (abort_file);
  32.     };
  33.  
  34.   return 0;
  35.   }
  36.  
  37.